/* TP 2, EJ 2 */

lanzamiento( D, 10 ) :- D >= 9, D =< 11, !.
lanzamiento( D, 6 ) :- D >= 7, D < 9, !.
lanzamiento( D, 6 ) :- D > 11, D =< 15, !.
lanzamiento( D, 0 ) :- D > 15, !.
lanzamiento( D, 0 ) :- D < 7, !.

fuerza( D, 3 ) :- D =< 5, !.
fuerza( D, 6 ) :- D > 5, D =< 10, !.
fuerza( D, P ) :- D > 10, Dif is D-10, P is 9+Dif*0.2.

equilibrio( D, P ) :- P is D / 3.

puntaje( D1, D2, D3, T ) :- lanzamiento( D1, P1 ), fuerza( D2, P2 ), equilibrio( D3, P3 ),
							total( P1, P2, P3, T ).

total( A, B, C, T ) :- A < 5, B < 5, C < 5, T is 0, !.
total( A, B, C, T ) :- T is A+B+C.

/*
% No es realmente necesario hacerlo tan largo
total( A, B, C, T ) :- A >= 5, T is A+B+C, !.
total( A, B, C, T ) :- B >= 5, T is A+B+C, !.
total( A, B, C, T ) :- C >= 5, T is A+B+C, !.
total( _, _, _, 0 ).
*/

/*
	puntaje( 12, 10, 15, P ). --> 6+6+5 = 17
*/